PC Plus SuperCD (UK) 1997 May/PC Plus Super CD Issue 127 (May 1997).iso/handson/handson.exe/TLUNIT1.DFM/TLUNIT1.txt

Text File | 1997-02-03 | 5.1 KB | 241 lines

object Form1: TForm1
  Left = 192
  Top = 119
  Width = 695
  Height = 452
  Caption =
    'PC Plus Sample Program - Importing Comma-delimited file to a TLi' +
    'st'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 16
  object TListCreateBtn: TButton
    Left = 8
    Top = 8
    Width = 217
    Height = 33
    Hint = 'You must create a TList before you can add objects to it!'
    Caption = 'TList Create'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnClick = TListCreateBtnClick
  end
  object MessageBox: TMemo
    Left = 240
    Top = 8
    Width = 441
    Height = 289
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object FreeThingsBtn: TButton
    Left = 8
    Top = 304
    Width = 217
    Height = 33
    Hint =
      'Frees the objects in the list. Doesn'#39't free the list itself, tho' +
      'ugh.'
    Caption = 'Destroy all Things'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = FreeThingsBtnClick
  end
  object TListDestroyBtn: TButton
    Left = 8
    Top = 48
    Width = 217
    Height = 33
    Hint =
      'This will only free the TList if you have already freed the obje' +
      'cts in the list.'
    Caption = 'TList Destroy'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = TListDestroyBtnClick
  end
  object CountThingsBtn: TButton
    Left = 8
    Top = 384
    Width = 217
    Height = 33
    Hint = 'Counts the number of objects in the TList.'
    Caption = 'Count Things'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnClick = CountThingsBtnClick
  end
  object ShowThingsBtn: TButton
    Left = 8
    Top = 344
    Width = 217
    Height = 33
    Hint = 'Displays the data of all objects in the TList.'
    Caption = 'Show Things'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = ShowThingsBtnClick
  end
  object ShowFirstBtn: TButton
    Left = 240
    Top = 304
    Width = 217
    Height = 33
    Hint = 'Shows the data in 1st object of TList.'
    Caption = 'Show First Thing'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnClick = ShowFirstBtnClick
  end
  object ShowLastBtn: TButton
    Left = 240
    Top = 344
    Width = 217
    Height = 33
    Hint = 'Shows the data in last object of TList.'
    Caption = 'Show Last Thing'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    OnClick = ShowLastBtnClick
  end
  object ExchangeFirstandLastBtn: TButton
    Left = 240
    Top = 384
    Width = 217
    Height = 33
    Hint = 'Swaps the 1st and last objects in the TList.'
    Caption = 'Exchange First and Last'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 8
    OnClick = ExchangeFirstandLastBtnClick
  end
  object ExitBtn: TButton
    Left = 544
    Top = 384
    Width = 137
    Height = 33
    Caption = '&Exit'
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 9
    OnClick = ExitBtnClick
  end
  object AddTenThingsBtn: TButton
    Left = 8
    Top = 256
    Width = 217
    Height = 33
    Hint =
      'Click this to let the program create and add ten simple Things t' +
      'o the TList'
    Caption = 'Add Ten Things'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 10
    OnClick = AddTenThingsBtnClick
  end
  object Panel1: TPanel
    Left = 8
    Top = 96
    Width = 217
    Height = 153
    TabOrder = 11
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 38
      Height = 16
      Caption = 'Name'
    end
    object Label2: TLabel
      Left = 8
      Top = 48
      Width = 74
      Height = 16
      Caption = 'Description'
    end
    object Label3: TLabel
      Left = 8
      Top = 80
      Width = 36
      Height = 16
      Caption = 'Value'
    end
    object NameEd: TEdit
      Left = 88
      Top = 8
      Width = 121
      Height = 24
      TabOrder = 0
    end
    object DescEd: TEdit
      Left = 88
      Top = 40
      Width = 121
      Height = 24
      TabOrder = 1
    end
    object ValEd: TEdit
      Left = 88
      Top = 72
      Width = 121
      Height = 24
      TabOrder = 2
    end
    object AddThingBtn: TButton
      Left = 16
      Top = 104
      Width = 193
      Height = 33
      Hint =
        'Creates an object containg the data in the 3 fields above. Adds ' +
        'this object to the TList.'
      Caption = 'Add Thing'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = AddThingBtnClick
    end
  end
  object ClearMessagesBtn: TButton
    Left = 544
    Top = 304
    Width = 137
    Height = 33
    Hint = 'Clears the list of messages shown above.'
    Caption = 'Clear Messages'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 12
    OnClick = ClearMessagesBtnClick
  end
  object ImportBtn: TButton
    Left = 544
    Top = 344
    Width = 137
    Height = 33
    Caption = '&Import Data'
    TabOrder = 13
    OnClick = ImportBtnClick
  end
end